home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 08ex006.jar / code / ch08 / 08ex006 / 08ex006.pl next >
Perl Script  |  1998-04-01  |  613b  |  22 lines
  1. #!/usr/bin/perl  
  2. $friend = Louise; # global variables 
  3. $pal = Danny; 
  4. print "$friend and $pal are global.\n" ; 
  5.  
  6. sub guests { 
  7. my ($friend)= "Pat" ; # $friend is known only in this function 
  8. local $pal= "Chris" ; # $pal is known in this function and functions 
  9. #  called from here 
  10. print "In guests subroutine:
  11. $friend and $pal are welcome guests.\n" ;
  12. &who_is_it; # call subroutine 
  13. }  
  14.  
  15. sub who_is_it { 
  16. print  "In who_is_it subroutine:
  17. You still have your global friend, $friend, here.\n" ;
  18. print "But your pal is now $pal.\n" ; # $pal can be changed here 
  19. }  
  20.  
  21. &guests; #call subroutine
  22.